home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TOT_2.ARJ
/
DEMO.EXE
/
arc
/
EXTDEM5.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
2KB
|
67 lines
Program ExtendedDemoFive;
{EXTDEM5 - this program shows how to use the
RecordListOBJ object from the extLINK unit.
In this example, the information is stored
in a sequential file. In real life, it
would often be a database.}
Uses DOS,CRT,
totFAST, totINPUT, totIO2, totLIST, extLINK, totSTR, totLINK;
var
RecList: RecordDLLOBJ;
ListWin: BrowseLinkOBJ;
procedure BuildTheList(Filename:string);
{loads in the data from disk - could also be from d/b}
var
F: file of RecordInfo;
Rec: RecordInfo;
Ecode: integer;
begin
assign(F,filename);
{$I-}
reset(F);
{$I+}
if ioresult <> 0 then
begin
writeln('The file ',filename,' cannot be located.');
writeln('Demo aborting. Run demo from directory containing file.');
halt(1);
end;
Ecode := 0;
RecList.Init;
while not eof(F) and (Ecode = 0) do
begin
Read(F,Rec);
with Rec do
begin
FirstName:= padleft(FirstName,15,' ');
LastName:= padleft(LastName,15,' ');
Company:= padleft(Company,20,' ');
end;
Ecode := RecList.Add(Rec);
end;
close(F);
end; {BuildtheList}
begin {Main program}
BuildTheList('EXTDEM5.DBF');
Screen.Clear(white,'░'); {paint the screen}
Key.SetFast;
with FMTNumberTOT do
begin
SetJustification(JustRight);
SetPrefixSuffix('$','');
end;
with ListWin do
begin
Init;
Win^.SetTitle(' Total Records: '+inttostr(RecList.TotalNodes)+' ');
AssignList(RecList);
Go;
end;
end.